home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / web / cweb.lha / cweb / vms.ch < prev    next >
Text File  |  1990-07-13  |  440b  |  19 lines
  1. This is the change file for CWEBs COMMON.WEB under VMS.
  2. Bjorn Larsen, University of Oslo, 1987.
  3.  
  4. @x
  5.   if (history > harmless_message) exit(1);
  6.   else exit(0);
  7. @y
  8. /* VMS and UNIX have different error status convention */
  9.   if (history > harmless_message) exit(2);
  10.   else exit(1);
  11. @z
  12.  
  13. @x
  14. @ @<Set up null...@>= strcpy(change_file_name,"/dev/null");
  15. @y
  16. @ @<Set up null...@>= strcpy(change_file_name,"nl:");
  17.     /* VMS notation for /dev/null */
  18. @z
  19.